home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / recio212.zip / rcbget.c < prev    next >
C/C++ Source or Header  |  1995-01-29  |  5KB  |  120 lines
  1. /*****************************************************************************
  2.    MODULE: rcbget.c
  3.   PURPOSE: recio column delimited integral number input functions
  4. COPYRIGHT: (C) 1994-1995, William Pierpoint
  5.  COMPILER: Borland C Version 3.1
  6.        OS: MSDOS Version 6.2
  7.   VERSION: 2.12
  8.   RELEASE: January 29, 1995
  9. *****************************************************************************/
  10.  
  11. #include <ctype.h>
  12. #include <errno.h>
  13. #include <limits.h>
  14. #include <stdio.h>
  15. #include <stdlib.h>
  16. #include <string.h>
  17.  
  18. #include "recio.h"
  19.  
  20. extern int _risready(REC *rp, int mode);
  21. extern char *_rfldstr(REC *rp, size_t len);
  22. extern char *_rerrs(REC *rp, int errnum);
  23. extern unsigned long str2ul(const char *nptr, char **endptr, int base);
  24.  
  25. #define rcol(rp) (rp->r_colno)
  26.  
  27. #define uint      unsigned int
  28. #define ulong     unsigned long
  29. #define UNSIGNED  0
  30. #define SIGNED    1
  31.  
  32. /****************************************************************************/
  33. static long                  /* return integral number                      */
  34.     _rcbgetl(                /* get integral number from col delim stream   */
  35.         REC *rp,             /* pointer to record stream                    */
  36.         size_t begcol,       /* field inclusive beginning column            */
  37.         size_t endcol,       /* field inclusive ending column               */
  38.         int base,            /* radix of number                             */
  39.         int sign,            /* signed number? (0=unsigned; !0=signed)      */
  40.         long min,            /* inclusive valid min value (0 if unsigned)   */
  41.         long max)            /* inclusive valid max value                   */
  42. /****************************************************************************/
  43. { 
  44.     long result=0L;          /* result to return */
  45.     long val;                /* conversion value */
  46.     char *fldptr;            /* pointer to field string */
  47.     char *endptr;            /* pointer to first invalid field char */
  48.     char *fldp;              /* another pointer to field string */
  49.  
  50.     if (_risready(rp, R_READ)) { 
  51.       if (endcol >= begcol && begcol >= rbegcolno(rp)) { 
  52.         rcol(rp) = begcol - rbegcolno(rp); 
  53.         fldptr = _rfldstr(rp, endcol-begcol+1); 
  54.         if (fldptr) { 
  55.           for (;;) { 
  56.             for (fldp=fldptr; *fldp; fldp++) {if (!isspace(*fldp)) break;} 
  57.             if (*fldp) { 
  58.               endptr = fldptr; 
  59.               errno = 0; 
  60.               if (sign) {
  61.                 val = strtol(fldptr, &endptr, base); 
  62.               } else {
  63.                 val = str2ul(fldptr, &endptr, base); 
  64.               }
  65.               while (isspace(*endptr)) endptr++; 
  66.               if (errno==ERANGE || !*endptr) { 
  67.                 if (!errno) { 
  68.                   if (sign) {
  69.                     if (val >= min && val <= max) { 
  70.                       result = val; 
  71.                       goto done; 
  72.                     }
  73.                   } else {
  74.                     /* note: unsigned min always assumed to be zero */
  75.                     if ((ulong) val <= (ulong) max) {
  76.                       result = val; 
  77.                       goto done;
  78.                     }
  79.                   }
  80.                 } /* out of range */ 
  81.                 fldptr = _rerrs(rp, R_ERANGE); 
  82.                 if (fldptr) { continue; } else { goto done; } 
  83.               } /* invalid data */ 
  84.               fldptr = _rerrs(rp, R_EINVDAT); 
  85.               if (fldptr) { continue; } else { goto done; } 
  86.             } /* missing data */ 
  87.             fldptr = _rerrs(rp, R_EMISDAT); 
  88.             if (fldptr) { continue; } else { goto done; } 
  89.           } 
  90.         }
  91.       } /* arguments reversed or tried to start before first column*/ 
  92.       rseterr(rp, R_EINVAL); 
  93.     } 
  94. done: 
  95.     return result; 
  96. }
  97.  
  98. /****************************************************************************/
  99. /* column delimited integral number input functions                         */
  100. /****************************************************************************/
  101. int rcbgeti(REC *rp, size_t begcol, size_t endcol, int base)
  102. {
  103.     return (int) _rcbgetl(rp, begcol, endcol, base, SIGNED, INT_MIN, INT_MAX);
  104. }
  105.  
  106. unsigned int rcbgetui(REC *rp, size_t begcol, size_t endcol, int base)
  107. {
  108.     return (uint) _rcbgetl(rp, begcol, endcol, base, UNSIGNED, 0, UINT_MAX);
  109. }
  110.  
  111. long rcbgetl(REC *rp, size_t begcol, size_t endcol, int base)
  112. {
  113.     return _rcbgetl(rp, begcol, endcol, base, SIGNED, LONG_MIN, LONG_MAX);
  114. }
  115.  
  116. unsigned long rcbgetul(REC *rp, size_t begcol, size_t endcol, int base)
  117. {
  118.     return (ulong) _rcbgetl(rp, begcol, endcol, base, UNSIGNED, 0L, ULONG_MAX);
  119. }
  120.